- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]数据抓取之后无法填入对于的表格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134918)
-- 发布时间：2019/5/13 9:20:00
-- [求助]数据抓取之后无法填入对于的表格
系统通过上传的TXT文件抓取简历的信息，其中应聘者名字可以从txt文档中抓取，并且对话框显示是对的，但dr("应聘者") = xm 这个却无法填入对于的表格中，其它列没有问题，请问是什么问题？
Dim txt As String = e.Form.Controls("应聘渠道").Value
If txt > "" Then
Dim xm As String
Dim dr As Row = Tables("H_JobNeed.H_JRMList").addnew
Dim dlg As New OpenFileDialog
dlg.Filter= "文本文件|*.txt|网页文件|*.html" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Select Case txt
Case "智通招聘"
Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
Dim rs() As String = strs.Split(vbcr)
For i As Integer = 0 To rs.Length - 1
If rs(i).Contains("( 编号") Then
xm = rs(i).Split("(")(0)
End If
Next
Dim mc = System.Text.RegularExpressions.Regex.Matches(strs,"(?is)(?<=联系方式).*?(?=[(])")
If mc.count >= 1 Then
Dim t As String = mc(0).value
Dim l As Integer = mc(0).value.length
dr("联系电话") = t.SubString(2,l-2)
End If
End Select
End If
MessageBox.Show(xm)
dr("姓名") = xm
dr("应聘者") = xm
dr("进度状态") = "简历上传"
dr("应聘渠道") = txt
dr("更新日期") = Date.Today
End If
此主题相关图片如下：qq截图20190513092105.jpg
[此贴子已经被作者于2019/5/13 9:22:48编辑过]
-- 发布时间：2019/5/13 9:45:00
--
看看你datacolchanged、ing事件是否写有影响代码，把那里的代码注释掉测试。
-- 发布时间：2019/5/13 10:01:00
--
检查了，表属性中都没有代码，另外之前我也是发现一个奇怪的现象，若新增行之后系统默认当前选中列的那个单元格就是填写不去数据；
-- 发布时间：2019/5/13 10:12:00
--
在前后加入systemready，看能否正常赋值
http://www.foxtable.com/webhelp/scr/2218.htm
-- 发布时间：2019/5/13 11:02:00
--
如下，但对话框会提示姓名，就是写入不到表格列中；
SystemReady = False
Try
\'追加数据代码
Dim txt As String = e.Form.Controls("应聘渠道").Value
If txt > "" Then
Dim xm As String
Dim dr As Row = Tables("H_JobNeed.H_JRMList").addnew
Dim dlg As New OpenFileDialog
dlg.Filter= "文本文件|*.txt|网页文件|*.html" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Select Case txt
Case "智通招聘"
Dim strs As String = FileSys.ReadAllText(dlg.FileName, encoding.default)
Dim rs() As String = strs.Split(vbcr)
For i As Integer = 0 To rs.Length - 1
If rs(i).Contains("( 编号") Then
xm = rs(i).Split("(")(0)
End If
Next
Dim mc = System.Text.RegularExpressions.Regex.Matches(strs,"(?is)(?<=联系方式).*?(?=[(])")
If mc.count >= 1 Then
Dim t As String = mc(0).value
Dim l As Integer = mc(0).value.length
dr("联系电话") = t.SubString(2,l-2)
End If
End Select
End If
MessageBox.Show(xm)
dr("姓名") = xm
dr("应聘者") = xm
dr("进度状态") = "简历上传"
dr("应聘渠道") = txt
dr("更新日期") = Date.Today
End If
Catch ex As Exception
MessageBox.Show("追加数据失败")
End Try
SystemReady = True
-- 发布时间：2019/5/13 11:36:00
--
你这种情况不可能出现的，联系客服QQ远程测试一次。