- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于动太加载 请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6415)
-- 发布时间：2010/3/31 17:18:00
-- 关于动太加载 请教
各位大哥，请教问题
如
有资料表 名称 表A ， 由于数据量大，所在采用动态加载
有流水账记录表 名称 表B ，表B中，前5列的基本信息来源于表A，，通过窗口查找表A，先中后，复制到 表B
收于 表A 是动态加载，所以在打开查找窗口时，表A根本没有数据 ，通过在 条件查找输入框中，输入查找信息，加载符合条件的数据，是否可行？
窗口中，数据表控件是 DataList1 控件
窗口图片
此主题相关图片如下：qq截图未命名.jpg
-- 发布时间：2010/3/31 17:24:00
--
先将DataList改成Table再说
-- 发布时间：2010/3/31 18:04:00
--
已更换成。。Tables
-- 发布时间：2010/3/31 18:12:00
--
肯定可行。
-- 发布时间：2010/3/31 18:13:00
--
上传项目文件
-- 发布时间：2010/3/31 18:21:00
--
我不知道外部数据库怎么让，，大家连接。。。
IP好像是内部网IP。
复制按钮的代码还没搞定。。
-- 发布时间：2010/3/31 18:35:00
--
如是sql数据库，你可以导出为ACC数据库保存，然后上传
复制按钮的代码，你想复制什么？
-- 发布时间：2010/3/31 18:42:00
--
大哥大姐
图片中，选 中复制 按钮的代码怎么转
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
For i As integer = 0 To dst.Count - 1
If dst.GetChecked(i) Then
Dim dr1 As DataRow = dst.GetDataRow(i)
Dim dr2 As Row = Tables("出货检验记录").AddNew()
dr2("生产任务单") = dr1("生产任务单")
End If
Next
e.Form.Close()
GetChecked
GetDataRow
-- 发布时间：2010/3/31 19:17:00
--
这样试试，我没测试
For i As integer = 0 To Tables("窗口1_Table1").Count - 1
If Tables("窗口1_Table1").Rows(i).Checked = True Then
Dim dr1 As Row = Tables("窗口1_Table1").Rows(i)
Dim dr2 As Row = Tables("出货检验记录").AddNew()
dr2("生产任务单") = dr1("生产任务单")
End If
Next
e.Form.Close()
[此贴子已经被作者于2010-3-31 19:19:23编辑过]
-- 发布时间：2010/4/1 8:24:00
--
没有问题，我把SQL导成ACC
传上来