T_客户表与T_子客户表通过客户ID(S QL数据类型为int）,以下代码是想通过子客户录入窗口来实现子客户录入，其中的textbox要实现根据已当前行已选择的客户ID来选择对应的子客户ID，但以下代码好像运行不是那么顺畅，我尝试的几遍，请帮忙修改。
Dim n As Integer
Dim s As String
Dim tbl As Table
' 假设您想从当前记录中获取客户ID
n = Tables("T_计划单").Current.DataRow("客户ID")
' 获取文本框的值,这通常用于用户输入或选择
s = e.Form.Controls("TextBox1").Text
' 获取子客户表
tbl = Tables("选择子客户_Table1")
' 根据需要设置过滤条件
If n > 0 Then ' 假设客户ID是一个正整数,检查它是否有效
' 设置过滤器来匹配客户ID
tbl.Filter = "客户ID = " & CStr(n) ' 使用CStr将整数转换为字符串以构建有效的过滤条件
Else
' 清除过滤器,如果客户ID无效或不存在
tbl.Filter = ""
End If
加好友 
发短信
Post By：2024/4/25 15:58:00 [只看该作者]
