- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何保存随机选出的行进行质检，下一次再调出继续进行未完成的质检 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151894)
-- 发布时间：2020/7/7 2:21:00
-- 如何保存随机选出的行进行质检，下一次再调出继续进行未完成的质检
如题
给个思路也行
[此贴子已经被作者于2020/7/7 2:21:04编辑过]
-- 发布时间：2020/7/7 6:33:00
--
弄个辅助逻辑列，随机选出确定后状态为TRUE，下一次在FALSE中选就可以了。
-- 发布时间：2020/7/7 9:00:00
--
方法1、如上
2、把这些行，或者主键保存到另外一个表中
-- 发布时间：2020/7/10 17:39:00
--
蓝版主：
“把这些行，或者主键保存到另外一个表中”，该怎么做？帮助文件中有学习资料么？
-- 发布时间：2020/7/11 8:39:00
--
建一个表，获取选中的行：http://www.foxtable.com/webhelp/topics/1597.htm，把这些行主键保存到表中
-- 发布时间：2020/7/11 12:55:00
--
蓝老师：
以下代码我的想法是：将抽选出的行，给予命名，目前完成不了命名，帮我看看，实例在下面
If e.Form.Controls("NumericComboBox1").value Is Nothing Then
MessageBox.Show("请输入质检样本数量","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
Return
Else
\'ataTables("按卷整理质检_table1").LoadFilter = "[期数] = \'"& e.Form.Controls("ComboBox1").text & "\'"
DataTables("表A").Load()
End If
Dim cnt As Integer = DataTables("表A").DataRows.Count
Dim nds As Integer = e.Form.Controls("NumericComboBox1").text \'要抽取的记录数
Tables("表A").StopRedraw()
DataTables("表A").ReplaceFor("抽检",False)
Do
Dim idx As Integer = rand.Next(0,cnt)
Dim dr As DataRow = DataTables("表A").DataRows(idx)
If dr("抽检") = False Then
dr("抽检") = True
nds = nds - 1
End If
Loop While nds > 0
Tables("表A").Filter = "[抽检] = True"
Tables("表A").ResumeRedraw()
Dim sn As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dt As Table = e.Form.Controls("Table1").Table
dt.Filter = Tables("表A").filter
For Each dr As Row In dt.Rows
dr("抽检名称")= sn
dr.Save
Next
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.table |
-- 发布时间：2020/7/11 14:11:00
--
Dim sn As WinForm.TextBox = e.Form.Controls("TextBox1")
dataTables("表A").replacefor("抽检名称",sn.text,Tables("表A").filter)