16,722
社区成员




Private Sub FillCustomersAccounts()
strCustomersAccountsSQL = "Select Customer, EarningDate as AccountDate, Description as Desc, Amount as DR, 0 as CR From " &
"tblCustomersEarns Where EarningDate Between #2014-1-1# And #2014-1-31# " &
"UNION ALL Select Customer, OrderDate as AccountDate, Remark as Desc, 0 as DR, Account as CR From " &
"S:\Order.accdb.tblOrder Where OrderDate Between #2014-1-1# And #2014-1-31#"
conCustomer.Open()
Dim CustomersAccountsDataAdapt As New OleDb.OleDbDataAdapter(strCustomersAccountsSQL, conCustomer)
Dim CustomersAccountsDataset As New DataSet
CustomersAccountsDataAdapt.Fill(CustomersAccountsDataset, "CustomersAccounts")
dgvCustomerAccount.DataSource = CustomersAccountsDataset
dgvCustomerAccount.DataMember = "CustomersAccounts"
conCustomer.Close()
End Sub