PCDVD數位科技討論區 - 瀏覽單個文章 - EIZO ColorEdge CG19 入手--->絕冷的LCD

代碼:

            Dim hSubjectText_Col As String = "Subject_Text"
            Dim hDataSet As DataSet

            hDataSet = PCDVD.FindSubjectByKeyWord("EIZO ColorEdge CG19")

            For Each PerDR As DataRow In hDataSet.Tables(0).Rows
                PerDR(hSubjectText_Col) = PerDR(hSubjectText_Col).ToString.Replace("冷", "可笑")
                PerDR(hSubjectText_Col) = PerDR(hSubjectText_Col).ToString.Replace("LCD", "LCD使用心得")
            Next    ' PerDR

            PCDVD.SaveSubject(hDataSet)