主题：[求助]密码生成怎么不执行？

 代码改一下

DataTables("成绩库").DataCols("姓名").RaiseDataColChanged()

For Each dr As DataRow In DataTables("成绩库").Select("姓名 is not null")
    dr("密码") = GetPy(dr("姓名"), True)
Next

这样看看。

For Each dr As DataRow In DataTables("成绩库").DataRows
   
    If dr.IsNull("学科代码") Then
        dr("学科序号") = Nothing
    Else
        Dim lb As String = dr("学科代码")
        Dim max As String
        Dim idx As Integer
        max = dr.DataTable.Compute("Max(学科序号)", "学科代码 = '" & lb & "'") '取得该学科代码的最大学科序号
       
        If max > "" Then '如果存在最大学科序号
            idx = CInt(max.Substring(2,3)) + 1 '获得最大学科序号的后三位顺序号,并加1
        Else
            idx = 1 '否则顺序号等于1
        End If
        dr("学科序号") = lb & Format(idx,"000")
    End If
Next