主题：不同表间字符对比和计算

没看懂你什么意思啊，对比的逻辑是什么啊，为什么和B、D列比较，而不是A列或C列啊

这样查，具体你要做什么逻辑不知道你怎么弄。

 

Dim tname As String = "答题数据1"
For Each dr As DataRow In DataTables("问题总结").DataRows
    Dim dr_sj As DataRow = DataTables(tname).Find("学号 = '" & dr("学号") & "'")
    Dim dr_da As DataRow = DataTables("客观题答案").find("试卷号 = '" & tname & "'")
    Dim dr_dams As DataRow = DataTables("客观题描述").find("试卷号 = '" & tname & "' and 题号 = '客观题1'")
    For Each s As String In dr_sj("客观题1")
        msgbox(s & ":" & dr_dams("选项" & s) & " 正确答案:" & dr_da("客观题1"))
    Next
Next