Dh,
Para Master mohon bantuannya. saya bikin report vb 6.0 dengan View Clasic
Report punyanya componenOne
But ada masalah.nih. aku bikin 4 colum . colum1 : N0 , colum2 : NIP, Colum 3 :
Nama, Colum 4: Potongan:
permasalahan nya dicolum 4. Bagaimana ya cara mengubah format angka dari teks
menjadi numerik atau currency
exmp: 4000 >>>> Rp 4.000
udah aku scrip : VsPrinter.TableCell(tcAlignCurrency, , 3, , 3) = True
tapi tetep ngak mau
scrip saya
Option Explicit
Dim Rs As New ADODB.Recordset
Const clrHeader = &HD0D0D0
Const sHeader = "Kode Rekam|NIP|Nama|POTONGAN"
Const sFormat = "1000|1500|4000|2500"
Private Sub CmdTransfer_Click()
Dim t
'Dim sSQL$
'sSQL = "SELECT [ShipCountry], [ShipCity], [ShipName], [ProductName],
[Quantity], [ExtendedPrice] FROM Invoices;"
t = Timer
Dim rsReport As New ADODB.Recordset
Set rsReport = New ADODB.Recordset
rsReport.CursorLocation = adUseClient
rsReport.Open "SELECT KodeRekam,NIP,Nama,PotKop FROM Temp_Tkoperasi",
conn, adOpenKeyset, adLockOptimistic
Debug.Print "Opened rsreport in "; Timer - t
t = Timer
Dim arr
arr = rsReport.GetRows()
Debug.Print "Got rows in "; Timer - t
t = Timer
VP.Header = "||Page %d"
VP.StartDoc
VP = "Validasi NIP Tidak Ada Dalam Database"
VP = "Tanggal Ceta on " & Now
VP = ""
VP.StartTable
VP.TableCell(tcColWidth, 0, VP.Columns - 1, 0, 4) = "0.1in"
VP.TableCell(tcRowHeight, 0, 0, 4, 4) = "0.1in"
VP.TableCell(tcColAlign) = taCenterMiddle
VP.AddTableArray sFormat, sHeader, arr, clrHeader
VP.TableCell(tcColAlign, , 1, , 3) = taLeftMiddle
VP.TableCell(tcColAlign, , 4) = taRightMiddle
VP.TableCell(tcAlignCurrency, , 3, , 3) = True
VP.EndTable
VP.EndDoc
Debug.Print "Created report in "; Timer - t
End Sub
Sub BukaDb()
Set Rs = New ADODB.Recordset
Rs.Open "select * from NNkop", conn, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Form_Load()
End Sub
Mohon Pencerahannya
Best Regards,
arissetia
[Non-text portions of this message have been removed]
