JO1SIM 出島さん、こんばんは。
> あと確認するとしたら、データのコピーのあたりですかねぇ。
下記のDebugプログラムを追加して確認した範囲では、u_th2には修正前のデータが正しくコピーされていることが確認できました。
sd = THW_update(u_th, u_th2, u_Rno, IsQSOdata, mes)
' 以下は、u_thとu_th2の内容を確認するテスト部分です
Dim Qtbl(16), Qtbl2(16), Tmp As String
For t As Integer = 0 To 14
Tmp = Space(160)
ThwString(Tmp, u_th2, t)
Qtbl(t) = Item_Edit(Tmp)
Next
For t As Integer = 0 To 14
Tmp = Space(160)
ThwString(Tmp, u_th, t)
Qtbl2(t) = Item_Edit(Tmp)
Next
For p As Integer = 0 To 14
Debug.Print("B4:" & Qtbl(p) & " After:" & Qtbl2(p))
Next