Dim DataFileFlag As String, ls_sign1 As String
DataFileFlag = HmisPathOut + "DataFileFlag.NO"
SpecifyIni (DataFileFlag)
iLsh = ReadInt("FLAG", "CurrentWriteNO") '读流水号
'If chkAxle1.Value = 1 Then
If iLsh = 0 Then
iLsh = 1
CurResult.iLsh = iLsh
Else
iLsh = iLsh + 1
CurResult.iLsh = iLsh
End If
~~~~~~~~SpecifyIni (DataFileFlag)这个有知道是什么意思的吗,
DataFileFlag = HmisPathOut + "DataFileFlag.NO"
SpecifyIni (DataFileFlag)
iLsh = ReadInt("FLAG", "CurrentWriteNO") '读流水号
'If chkAxle1.Value = 1 Then
If iLsh = 0 Then
iLsh = 1
CurResult.iLsh = iLsh
Else
iLsh = iLsh + 1
CurResult.iLsh = iLsh
End If
~~~~~~~~SpecifyIni (DataFileFlag)这个有知道是什么意思的吗,