专家坐堂-合成表达式Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合成表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145383)

--  作者：tld
--  发布时间：2020/1/17 20:30:00
--  合成表达式
老师，我在currentchanged中的代码哪里不正确？谢谢！

客户表中，有客户名称列、联系人列

Dim fk As String
Dim fkr As String
Dim dtb As DataTable=DataTables("客户表")
fk=e.Table.Current("付款单位")
fkr=e.Table.Current("付款人")
If fk<>"" And fkr<>"" Then
Dim ddr As DataRow = dtb.Find("客户名称=\'" & fk & "\'" And "联系人=\'" & fkr & "\'")

[此贴子已经被作者于2020/1/17 20:34:22编辑过]

--  作者：有点蓝
--  发布时间：2020/1/17 21:20:00
--
dim r as row = e.Table.Current
if r isnot nothing
Dim fk As String
Dim fkr As String
Dim dtb As DataTable=DataTables("客户表")
fk=r("付款单位")
fkr=r("付款人")
If fk>"" And fkr>"" Then
Dim ddr As DataRow = dtb.Find("客户名称=\'" & fk & "\' And 联系人=\'" & fkr & "\'")
end if