主题：导入 word 公式

这种word格式文件，无法直接读取。

 

1、每一题的分隔不明显，是不是固定回车作为每一题的分割？

 

2、公式、图片等内容，是不能直接读取作为文本写入的，这样导致你导入没意义。

 

3、各个选项的分割也不明显，是否固定；分割？

1、贴出你写的代码；

 

2、上传你的数据库；

Dim i As Integer = 1
Dim dt1 As DataTable = DataTables("学生")
Dim pdr As DataRow
dt1.DataRows.Clear
For Each dr As Row In Tables("录取").Rows
    If i Mod 2 = 1 Then
        pdr = dt1.AddNew
        pdr("姓名") = dr("XM")
       
        pdr("学号") = dr("KSH")
       
        pdr("序号") = dr("序号")
       
        pdr("性别")=IIF(dr("XBDM")=1, "男", "女")    
        Dim dr1 As DataRow = DataTables("民族").find("民族代码='" & dr("MZDM") & "'")
        If dr1 IsNot Nothing Then
            pdr("民族") = dr1("名族列")
        End If
    End If
    i = i +0
Next

表A，DataColChanged事件，写代码

 

If e.DataCol.name = "身份证号码" OrElse e.DataCol.name = "编号" Then
    Dim fdr As DataRow = DataTables("表B").find("身份证号码 = '" & e.DataRow("身份证号码") & "'")
    If fdr IsNot Nothing Then
        fdr("操作日期") = e.DataRow("编号")
    End If
End If

回复26楼，你表【学生】哪些列是小数类型的列？类型和【T_TDD】的对应吗？

 

尽量加入msgbox定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm

 

回复28楼，没看懂你什么意思。你要做什么功能，要写什么代码？报什么错？

这个意思？

 

Dim dr2 As DataRow = DataTables("T_JHK").find("ZYDM='" & dr("TDZYDM") & "' and YXDM = '" & dr("YXDM") & "'")

 

Tables("学生").Sort = "学号"

1、参考代码，分析内容获取值，你的题目必须规则才行分析，读懂代码自行扩展。

 

Dim dlg As new OpenFileDialog
dlg.Filter = "word|*.doc;*.docx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim app As New MSWord.Application
    try
        Dim doc = app.Documents.Open(dlg.fileName)
        Dim count = Doc.Characters.Count
        Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
        msgbox(rng.Text)
        Dim str As String = rng.text
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, ".+?答案.+?\r")
        msgbox(mc.count)
        For i As Integer = 0 To mc.count-1
            msgbox(mc(i).value)
        Next
        app.Quit
    catch ex As exception
        msgbox(ex.message)
        app.Quit
    End try
End If

 

2、对于不是文本的内容，无法识别。

35楼代码没问题啊。

 

1、你看懂代码；

 

2、你执行的时候弹出各个值了，然后你利用那些值；