列の値に基づいてデータセットから最初の（最も古い）値を抽出する

Question

私はDataSetsでの作業経験が豊富で、達成したいことを達成するための最良の方法を見つけることができませんでした。

私は基本的にSQLクエリを使用してDataSetを作成し、次に 'Field'列に特定の値を見つけようとしていますが、 'Flag'に 'Y'がある場合（ 'N '）同じ行の列をクリックし、チェックボックスの状態を[チェック]に変更し、ラベルテキストを更新するようにします。私は1次回に.FirstOrDefault（）（）私はこのエラーを取得すると少しのコードを変更した場合

Object reference not set to an instance of an object

：データが、私は以下のエラーを取得返されていない場合

私は何を持っていることが動作しているようです：

Sequence contains no elements

問題の原因と思われるコードの一部を以下に示します。 。それは書かれているはず

If (eData.Select("Field = 'Timesheets Checked'").FirstOrDefault()("Flag")) IsNot Nothing Then 
     If eData.Select("Field = 'Timesheets Checked'").FirstOrDefault()("Flag").ToString.Trim = "Y" Then 
      TShtY.CheckState = CheckState.Checked 
      TShtTime.Text = Format(eData.Select("Field = 'Timesheets Checked'").First()("UpdateTime"), "HH:mm:ss") 
     Else 
      TShtN.CheckState = CheckState.Checked 
     End If 
    End If 

：あなたは私はそれを追加します何かを知る必要がある場合

Dim sSQL As String 
    sSQL = 
     <SQL> 
      SELECT MAX(UpdateTime) AS UpdateTime FROM AdminCS_Data_Current 
      WHERE UpdateUser = |@@UpdateUser| 
     </SQL> 
    sSQL = Replace(sSQL, "@@UpdateUser", AdminCB.Text) 
    Me.LastUserUpdate.Text = "Last Action: " & Format(ReturnDatabaseValue(sSQL, "UpdateTime", "Data"), "dd/MM/yyyy HH:mm:ss") 

    Dim EmployeeDataset As New DataSet 
    Try 
     sSQL = 
      <SQL> 
       SELECT * FROM AdminCS_Data_Current 
       WHERE UpdateUser = |@@UpdateUser| AND CONVERT(DATE, UpdateTime) = CAST(GETDATE() AS DATE) 
       ORDER BY UpdateTime ASC 
      </SQL> 
     sSQL = Replace(sSQL, "@@UpdateUser", AdminCB.Text) 
     EmployeeDataset = ReturnDataSet(sSQL, "Data") 

     If EmployeeDataset IsNot Nothing Then 
      Dim eData = EmployeeDataset.Tables(0) 
      If (eData.Select("Field = 'Timesheets Checked'").FirstOrDefault()("Flag")) IsNot Nothing Then 
       If eData.Select("Field = 'Timesheets Checked'").FirstOrDefault()("Flag").ToString.Trim = "Y" Then 
        TShtY.CheckState = CheckState.Checked 
        TShtTime.Text = Format(eData.Select("Field = 'Timesheets Checked'").First()("UpdateTime"), "HH:mm:ss") 
       Else 
        TShtN.CheckState = CheckState.Checked 
       End If 
      End If 
      ' The above two IF statements would be repeated several times on each change of "Field" 
     End If 

Answer 1

このコードはiunefficiencyもバグではないだけを導入しているように思われます

Dim row = eData.Select("Field = 'Timesheets Checked'").FirstOrDefault() 

    If row IsNot Nothing Then 
     If row("Flag").ToString.Trim = "Y" Then 
      TShtY.CheckState = CheckState.Checked 
      TShtTime.Text = Format(row("UpdateTime"), "HH:mm:ss") 
     Else 
      TShtN.CheckState = CheckState.Checked 
     End If 
    End If 

読みやすく、より効率的で、厄介なバグを回避します。それは多分あなたがしているトライステート、でない限り

Dim row = eData.Select("Field = 'Timesheets Checked'").FirstOrDefault() 

    If row IsNot Nothing Then 
     If row("Flag").ToString.Trim = "Y" Then 
      TShtY.Checked = True 
      TShtTime.Text = CDate(row("UpdateTime").ToString("HH:mm:ss") 
     Else 
      TShtN.Checked = True 
     End If 
    End If 

あなたはCheckboxのCheckStateを使用することはありませんが、私はそれを疑う：

また、私はむしろ、これを参照してくださいね。 Formatについては、もうVB6ではなくトートです。