Foxtable(狐表)用户栏目专家坐堂 → 自动填充


  共有4452人关注过本帖树形打印复制链接

主题:自动填充

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/16 14:53:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/16 14:59:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "车号", "日期", "货物名称"
        Dim dr As DataRow = DataTables("表B").Find("车号 = '" & e.DataRow("车号") & "' and 日期 = #" & e.DataRow("日期") & "#")
        If dr IsNot Nothing Then
            dr("车号") = e.DataRow("车号")
            dr("日期") = e.DataRow("日期")
            dr("货物") = e.DataRow("货物名称")
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/16 16:44:00 [显示全部帖子]

表A DataColChanged 事件。

 

再有,你要去学一下foxtable基础编程。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/16 23:57:00 [显示全部帖子]

参考2楼

 

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

 

重新学习foxtable编程,你根本什么也不懂

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 0:03:00 [显示全部帖子]

 

你这种,根本就不需要单独做一个表,直接做查询表就可以啊

 

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

 

你要查哪个车号直接筛选也可以啊。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 9:09:00 [显示全部帖子]

回复9楼,你这样设计,就是麻烦的事情,全部放在表A就行啊。你要查哪一个车号的,单独做一个窗口查询,就能生成对应的表了。

 

你还是重新学习foxtable编程吧,不然要走很多弯路。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 9:51:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 11:29:00 [显示全部帖子]

二楼已经告诉你了啊

 

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

 

表名的问题,你直接根据车号合成就行啊

 

DataTables("车" & e.DataRow("车号"))


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 11:46:00 [显示全部帖子]

填入的就是最新的啊,如果你要加上日期限制,看前面的代码。

 

Select Case e.DataCol.name
    Case "车号", "起点", "日期", "货物名称"
        Dim dr As DataRow = DataTables("表B").Find("车号 = '" & e.DataRow("车号") & "'")
        If dr IsNot Nothing Then
            dr("起点") = e.DataRow("起点")
            dr("日期") = e.DataRow("日期")
            dr("货物") = e.DataRow("货物名称")
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/17 14:09:00 [显示全部帖子]

二楼已经告诉你了啊

 

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


 回到顶部
总数 16 1 2 下一页