主题：标记行弹出提式

问前试过了，因为其它表没有标记列，提出错误提示

 

那就可以通过Find函数，先查找到表1对应的行

 

http://www.foxtable.com/help/topics/0396.htm

 

If e.Table.Current Is Nothing Then
    Return
Else
    Dim dr As DataRow= DataTables("日新车队").Find("标记 = true")
  
        MessageBox.Show(r("备注"))
    
End If

Dim dr As DataRow= DataTables("日新车队").Find("标记 = true and 车号 = '" & e.table.Current("车号") & "'")
If dr IsNot Nothing Then
    msgbox(dr("备注"))
End If

 代码不可能报错。

 

 例子

---

以下内容是专门发给有点甜浏览

---

密码158998

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日新车队管理系统.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日新车队数据库.rar

If e.Table.Current Is Nothing Then
    Return
Else
    Dim dr As DataRow= DataTables("日新车队").Find("标记 = true and 车号 = '" & e.Table.Current("车号") & "'")
    If dr IsNot Nothing Then
        msgbox(dr("备注"))
    End If
End If

一进入系统也弹出,把第一台车做了标记,在收入记账那里输入这个车号,然后就老是弹出备注,关都关不了

 把代码写到Click事件，不要写到position事件