
原來是Windows 7 與 HP相衝的關係
發生原因可能是該印表機被當成是Shared的印表機
列印文件發生問題,造成此Service當掉所致
1.先將此Service停用 (Stop),按滑鼠右鍵Stop
2.然後到C:\Windows\System32\spool\PRINTERS將目錄內的資料全數刪除
3.將此Service啟用 (Start),按滑鼠右鍵Start
應該可以解決此問題...
Read more.
分享使用微軟開發工具及工作上會遇到的疑難雜症

Dim Lot() As String = Split("21003144,21003145", ",")
Dim i1 As Integer = 0
Dim query = From p In db.Packing_Item_Entry_History _
Where (Lot).Contains(p.pieh_Lot_No) _
Select p.pieh_Lot_No, p.pieh_pih_Job_No
DataGridView1.DataSource = query
or
Dim query = From p In db.Packing_Item_Entry_History _
Where (Split("21003144,21003145", ",")).Contains(p.pieh_Lot_No) _
Select p.pieh_Lot_No, p.pieh_pih_Job_No
DataGridView1.DataSource = query
Use integer
Dim dkey_arr() As String = Split("14472,14473", ",")
Dim iArray(dkey_arr.Length - 1)
For i As Integer = 0 To dkey_arr.Length - 1
iArray(i) = CType(dkey_arr(i), Integer)
Next
Dim query = From p In db.Packing_Item_Entry_History _
Where (iArray).Contains(p.pieh_dKey) _
Select p.pieh_Lot_No, p.pieh_pih_Job_No
DataGridView1.DataSource = query
...
Use integer
Dim i_List As New List(Of Integer)
For Each s As String In String.Split("14472,14473", ",")
i_List.Add(CType(s, Integer))
Next
Dim query = From p In db.Packing_Item_Entry_History _
Where (i_List).Contains(p.pieh_dKey) _
Select p.pieh_Lot_No, p.pieh_pih_Job_No
DataGridView1.DataSource = query
...
先在Form1建立一個Untyped dataset並取名為DS1及Textbox取名為TextBox1
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sForm2 As New Form2()
sForm2.ShowDialog(Me)
DataGridView1.DataSource = DS1.Tables(0)
End Sub
End Class
Public Class Form2
Dim db As New VivaDataClassesDataContext()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm1 As Form1 = DirectCast(Me.Owner, Form1)
DirectCast(frm1.Controls("textBox1"), TextBox).Text = TextBox1.Text
Dim query = From p In db.Product_Daily_Report_Comment _
Select p
frm1.DS1.Tables(0).Load(New DataTableReader(query.ToDataTable()))
Me.Close()
End Sub
End Class
REG ADD "HKLM\SYSTEM\CurrentControlSet\Control\SafeBoot\Minimal\MSIServer" /VE /T REG_SZ /F /D "Service"
net start msiserver