急急急在运行的时候没问题 , 但用开发模式就出现这个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在运行的时候没问题 , 但用开发模式就出现这个问题 , 如图 ,是什么原因 ? 急,急,急,
图片点击可在新窗口打开查看

此主题相关图片如下：error -1.png

If len(shop.value)>0 Then

filter= "{pos_master}.shopcode='"& shop.Value &"' and pos_date between '"& startdate &"' And '"& enddate &"' "

Else

filter= " pos_date between '"& startdate &"' And '"& enddate &"' "

End If

If len(filter)>0 And user.Name="admin" Then MessageBox.Show (Filter)

DataTables("pos_master").LoadFilter =Filter

DataTables("pos_master").load

Dim r As Integer

Dim RowCount As Integer = Tables("pos_master").Rows.Count

Dim startcount As Integer

If user.name="admin" Then messagebox.Show ( " tables pos_master row count " & Rowcount )

If user.name="admin" Then messagebox.Show ( " tables pos_master start count " & startcount )

Do Until startcount= Rowcount

Dim r_1 As Row = Tables("pos_master").Rows(startcount)

If len(r_1("customer_card_no") )>0 Then

Dim customer_dr As DataRow

find_str=("customer_card_no='"& r_1("customer_card_no") &"' ")

messagebox .Show (find_Str)

customer_dr=DataTables("customer").find (find_str)

Dim pos_master_dr As DataRow

pos_master_dr = DataTables("pos_master").Find("customer_card_no='"& r_1("customer_card_no") &"' ","pos_date desc ")

If pos_master_dr IsNot Nothing Then '如果找到的话

messagebox.Show ( " 2 ")

r_1("lastbuy_day")=pos_master_dr("pos_date")

End If

If len(customer_dr("customer_ename") )>0 Then r_1("customer_ename")=customer_dr("customer_ename")

If len(customer_dr("customer_opening") )>0 Then r_1("customer_opening")=customer_dr("customer_opening")

If len(customer_dr("customer_sub_cat") )>0 Then r_1("customer_sub_cat")=customer_dr("customer_sub_cat")

' messagebox.Show( r_1("customer_cname") & " " & r_1("customer_card_no") & " " & startcount )

Else

r_1("customer_ename")=""

End If

startcount=startcount+1

' messagebox.Show(" start value " & startcount )

Loop

我发现这句错了 , DataTables("pos_master").find 有时能找到资料有时不能 ,而我用 sql manager 找是肯定有资料的是什么原因导致了 ?

Dim sales_dr As DataRow

sqlfilter="pos_date >='"& startdate &"' and pos_date <= '"& enddate &"' "

'sqlfilter="pos_date between '"& &"' and '"& enddate &"' "

If user.name="admin" And i <10 Then messagebox.Show (" pos_master " & sqlfilter)

DataTables("pos_master").loadfilter=sqlfilter

DataTables("pos_master").load

If user.name="admin" And i<10 Then MessageBox.Show( drnew("CUSTOMER_CARD_NO") )

sales_dr= DataTables("pos_master").find ("customer_card_no = '"& drnew("CUSTOMER_CARD_NO") &"' ", "pos_date desc" )

If sales_dr IsNot Nothing Then

drnew("lastday_buy")=sales_dr("pos_date")

drnew("sales_code")=sales_dr("updated_user")

Else

StatusBar.Message2=("Sales Records Not Found" )

drnew("lastday_buy")=""

drnew("sales_code")=""

End If

datatables 的 filter 需要先清空一下嗎 ? 因为这个数据 pos_master 在其他表也要引用是不是因为其他表的 filter 原因导致 ?

有时没有问题 ,有时有问题不能用 , 后来我清空了 filter="" 然后再设置filter 好像解决了问题

Dim sales_dr As DataRow

sqlfilter="pos_date >='"& startdate &"' and pos_date <= '"& enddate &"' "

'sqlfilter="pos_date between '"& &"' and '"& enddate &"' "

If user.name="admin" And i <10 Then messagebox.Show (" pos_master " & sqlfilter)

DataTables("pos_master").loadfilter=sqlfilter

DataTables("pos_master").load

sales_dr= DataTables("pos_master").find ("customer_card_no = '"& drnew("CUSTOMER_CARD_NO") &"' ", "pos_date desc" )

我需要 loadfilter="" 然后再设置新的 loadfiter > load 这样设置可好 ?

主题：急 急 急 在运行的时候没问题 , 但用开发模式就出现这个问题

主题：急急急在运行的时候没问题 , 但用开发模式就出现这个问题